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-- File: StringDef s.Mosa 

-- Edited by Sandman on July 13, 1977 7:35 AM 

DIRECTORY AltoDefs: FROM "altodefs"; 

DEFINITIONS FROM AltoDefs; 

StringDefs: DEFINITIONS =» 
BEGIN 

StringHeaderSize: PRIVATE INTEGER = 2; 

CharsPerWord: INTEGER = Al toDef s .CharsPerWord ; 
charlength: INTEGER = AltoDefs .charlength; 
CharsPerPage: INTEGER = AltoDefs .CharsPerPage; 
LogCharsPerPage: INTEGER = Al toDef s .LogCharsPerPage; 

SubStringDescriptor: TYPE = RECORD [ 
base: STRING, 
offset, length: CARDINAL]; 

Substring: TYPE = POINTER TO SubStringDescriptor; 

Overflow: SIGNAL; 

Inval idNumber: SIGNAL; 

StringBoundsFault: SIGNAL [s:STRING] RETURNS [ns:STRING]; 

WordsForString: PROCEDURE [nchars : INTEGER] RETURNS [INTEGER]; 

AppendChar: PROCEDURE [s:STRING, c :CHARACTER] ; 

AppendString: PROCEDURE [to , f rom:STRING] ; 

EqualString, EquivalentString : PROCEDURE [si . s2 :STRING] RETURNS [BOOLEAN]; 

AppendSubString: PROCEDURE [ to : STRING, f rom: Substring ] ; 

EqualSubStrings. EquivalentSubStrings : PROCEDURE [si , s2 :SubString] RETURNS [BOOLEAN]; 

DeleteSubString: PROCEDURE [s :SubString] ; 

StringToDecimal : PROCEDURE [STRING] RETURNS [INTEGER]; 

StringToOctal : PROCEDURE [STRING] RETURNS [UNSPECIFIED]; 

StringToNumber: PROCEDURE [STRING .CARDINAL] RETURNS [UNSPECIFIED]; 

-- routines for bcpl strings 

bcplStringHeaderSize: PRIVATE INTEGER = 1; 

bytepair: PRIVATE TYPE = MACHINE DEPENDENT RECORD [ 1 ef t , r ight :CHARACTER] ; 

bcplSTRING: TYPE = PRIVATE MACHINE DEPENDENT RECORD[ 
length: BYTE, body: CHARACTER, 
rest: ARRAY [1..127] OF bytepair]; 

bcplStringOverf low, mesaStr ingOverf low: SIGNAL; 
WordsForBcplString: PROCEDURE [n:INTEGER] RETURNS [INTEGER]; 
MesaToBcplString: PROCEDURE [s:STRING, t:POINTER TO bcplSTRING]; 
BcplToMesaSLring: PROCEDURE [t:POINTER TO bcplSTRING, s:STRING]; 

END. 


